home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_lrm / lr6avcs.src < prev    next >
Text File  |  1996-01-30  |  1KB  |  54 lines
  1.  
  2.  
  3. --                ON-LINE Ada LANGUAGE REFERENCE MANUAL
  4. --        Developed at Nofolk State University
  5. --        Development funded by a grant from the U. S. Army
  6. --        Project ReDTEA
  7. --        Version 1.0 released December 1988
  8. --        Programmer:        Esther M. Lumsdon
  9. --        Project Director:  George C. Harrison, PhD
  10.  
  11.  
  12.  
  13. with TEXT_IO; use TEXT_IO; 
  14.  
  15. with LRM_TYPES; use LRM_TYPES; 
  16. with MACHINE_SPECIFIC; use MACHINE_SPECIFIC; 
  17. with LRM_GLOBAL; use LRM_GLOBAL; 
  18.  
  19.  
  20.  
  21.  
  22. package LRM_NON_SMG is 
  23.  
  24.   MAIN_MENU_CHOICE   : STRING(1 .. 4); 
  25.   USING_DEC_TERMINAL : BOOLEAN := FALSE; 
  26.   -- false when not using DEC or compatible terminal, or when not using
  27.   --   DEC VAX VMS system. Used for SMG$ calls.
  28.  
  29.  
  30.   procedure INITIALIZE; 
  31.  
  32.   procedure WELCOME(IN_FILE_NAME : in STRING); 
  33.  
  34.   procedure DISPLAY_EXPLAIN(IN_FILE_NAME : in STRING); 
  35.  
  36.   procedure DISPLAY_MAIN_MENU(IN_FILE_NAME : in STRING); 
  37.  
  38.   procedure SELECT_FROM_MAIN_MENU(MAIN_MENU_CHOICE : out STRING); 
  39.  
  40.   procedure TERMINATE_LRM; 
  41.  
  42.   procedure SCROLL_TEXT(IN_FILE_NAME : in STRING; 
  43.                         SAVE_TITLE   : in STRING; 
  44.                         SAVE_FILE    : in out FILE_TYPE); 
  45.  
  46.   procedure DO_CHAPTER_MENU(SAVE_FILE : in out FILE_TYPE); 
  47.  
  48.   procedure DO_ANNEX_MENU(SAVE_FILE : in out FILE_TYPE); 
  49.  
  50.   procedure CREDITS(SAVE_FILE : in out FILE_TYPE); 
  51.  
  52.  
  53. end LRM_NON_SMG; 
  54.